home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / pasprog.EXE / PRNCHK.PAS < prev    next >
Pascal/Delphi Source File  |  1995-05-12  |  635b  |  29 lines
  1.  
  2.  
  3. function prnstat(lpt:word):string;
  4. var
  5. result :byte;
  6. tmps:string;
  7. begin
  8.   asm
  9.     mov ah,02
  10.     mov dx,lpt
  11.     int 17h
  12.     mov result,ah
  13.   end;
  14. tmps:='';
  15. if (result and 1)<>0 then tmps:=tmps+' timeout';
  16. if (result and 8)<>0 then tmps:=tmps+' TXerror';
  17. if (result and 16)<>0 then tmps:=tmps+' Online';
  18. if (result and 32)<>0 then tmps:=tmps+' OutOfPaper';
  19. if (result and 64)<>0 then tmps:=tmps+' Exists';
  20. if (result and 128)=0 then tmps:=tmps+' Busy';
  21. prnstat:=tmps;
  22. end;
  23.  
  24. begin
  25. writeln('LPT1 = ',prnstat(0));
  26. writeln('LPT2 = ',prnstat(1));
  27. writeln('LPT3 = ',prnstat(2));
  28. writeln('LPT4 = ',prnstat(3));
  29. end.